10 FORI=53289TO53293:POKEI,0:NEXT
20 POKE53269,0:PRINT"[147]  THIS PROGRAM TAKES DATA FOR 1 SPRITE" CHR$(142)
30 PRINT"        AND CALCULATES NEW DATA"
40 PRINT" TO PUT SPRITE IN DIFFERENT POSITIONS.":PRINT
50 PRINT"         TO USE ON YOUR DATA"
52 PRINT"   REPLACE DATA AT END OF PROGRAM"
60 PRINT"         WITH YOUR OWN DATA":PRINT
70 PRINT"        HIT A KEY TO CONTINUE"
72 PRINT:PRINT"    THE SPRITE WILL APPEAR AT THE"
74 PRINT"       TOP-LEFT OF THE SCREEN."
80 POKE198,0:WAIT198,1:GETK$
90 BY=21:DIM B(21,3),F(21,21),U(21,3),  A(24,24) ,RO(24,3),SP(75),SP$(75)
100 V=53248:J=0:POKEV+28,0:POKEV+29,0:POKEV+23,0
102 FORI=1TOBY:FORK=1TO3
110 READ B(I,K):SP(J)=B(I,K):J=J+1:NEXT :NEXT :GOSUB430
120 PRINT"[147]1[146] TO FLIP RIGHT TO LEFT"
130 PRINT"2[146] TO FLIP UP TO DOWN   "
140 PRINT"    TO ROTATE 90 DEGREES "
150 PRINT"3[146] SPREAD DATA EVENLY OVER ROW & COLUMNS"
160 PRINT"4[146] STRIP DATA FROM RIGHT OF SPRITE"
162 PRINT"5[146] RETURN TO LOADSTAR"
170 IF SB>4 THEN PRINT"[147]OUT OF SPRITES...":FORDL=1TO1000:NEXT:RUN90
180 POKE198,0:WAIT198,1:GETK$
190 IFK$<"1"ORK$>"5"THEN180
192 IFK$="5"THEN60000
200 PRINT"[147]":B=VAL(K$):TI$="000000":ONBGOTO210,270,300,300
210 FOR I=1TOBY:FORK=1TO3 : S=B(I,K)
220 FORP=7 TO 0 STEP -1:PRINT""TI$
230 IF 2^P=<S THEN F(I,4-K)=F(I,4-K)+2^(7-P): S=S-2^P
240 NEXT :NEXT:NEXT
250 J=0: FOR I=1TOBY:FORK=1TO3:SP(J)=F(I,K):J=J+1:NEXT:NEXT
260 GOSUB430:GOTO120
270 J=0: FOR I=1TOBY:PRINT""TI$:  FOR K=1TO3
280 U(I,K)=B(BY+1-I,K):SP(J)=U(I,K)
290 J=J+1:NEXT :NEXT:GOSUB430: GOTO120
300 Q=BY: FOR I=BYTO1STEP-1:PRINT""TI$:FORK=1TO3:S=B(I,K)
310 FORP=7TO0STEP-1:  A((K-1)*8+8-P,BY+1-Q)=0
320 IF2^P<=STHENA((K-1)*8+8-P,BY+1-Q)=1:S=S-2^P
330 NEXTP: NEXT K :IFB=4THEN360
340 IFI/7<>INT(I/7)THEN360
350 Q=Q-1:FORT=1TO24:A(T,BY+1-Q)=A(T,BY-Q):NEXT T
360 Q=Q-1: NEXT I
370 J=0:Q=1:  FOR R=1TO21
380 IF B=3AND R/7=INT(R/7)THEN Q=Q+1
390 FORC=1TO3:RO(R,C)=0:FOR P=7TO0 STEP-1
400 IF A(Q,(C-1)*8+8-P)=1THEN RO(R,C)=RO(R,C)+2^P
410 NEXT P:SP(J)=RO(R,C):J=J+1
420 NEXTC:Q=Q+1:NEXTR: GOSUB430:GOTO120
430 PRINT"[147]":  SB=SB+1:PW=PW+2^(SB):POKEV+21,PW:POKE2040+SB,220+SB:POKEV+39+SB,1
440 FOR N=0TO 62:POKE14080+64*SB+N,SP(N):NEXT
450 PRINT"[147]":POKEV+(SB*2),40*SB:POKEV+(SB*2+1),50
460 PRINT"PRESS 'Y' TO SEE DATA"
470 POKE198,0:WAIT198,1:GETK$
480 IF K$<>"Y"THEN530
490 FOR N=0TO62STEP9 :FORM=0TO8 :SP$(N+M)=STR$(SP(N+M))
500 PRINTTAB(4*M);SP$(N+M);:NEXT:PRINT: NEXT
510 PRINT:PRINT"HIT ANY KEY TO CONTINUE"
520 GET K$:IFK$=""THEN520
530 PRINT"[147]":  RETURN
540 DATA 0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,60,0,0,126,0,0
550 DATA 239,0,0,135,255,224,7,255,240,3,255,252,3,255,247,1,254,227
560 DATA 1,249,230,1,225,96,1,34,96,1,36,224 ,1,242,128,0,8,128,0,0,0,0,0,0
60000 REM CONNECT TO LS
60010 PRINT"[147]RECONNECTING...":POKE53248+21,0:LOAD"HELLO CONNECT",8